home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
LANG
/
FORTH
/
FORTHMAC
/
OLD
/
TOOLS1
/
!Forthmacs.lib.xprint
< prev
next >
Wrap
Text File
|
1996-05-22
|
236b
|
12 lines
decimal
2 constant two
8 constant eight
10 constant ten
16 constant sixteen
: n. ( n base -- )
base @ -rot base ! u. base ! ;
: ln. ( d base -- )
base @ -rot base ! ul. base ! ;
: x. ( n -- ) ( print in unsigned hex )
sixteen n. ;